home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Uptime_The_Disk_Monthly_V1_11_19xx_Uptime_staff_Side_A.d64 / reader's survey (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  201 lines
  1. 3 rem *  pgm title : reader's survey
  2. 4 rem *  pgm author: dave hammond
  3. 6 rem *  (c)1986 viking technologies
  4. 20 print chr$(8)chr$(14)
  5. 30 uptime=(8*4096)+4: de=186
  6. 40 poke53280,0: poke53281,0
  7. 100 gosub 1000
  8. 110 gosub 1500
  9. 120 get k$: if k$="" then 120
  10. 130 if k$=chr$(140) then 550
  11. 140 if k$<>chr$(13) then 120
  12. 200 gosub 1600
  13. 210 get k$: if k$="" then 210
  14. 220 if k$=chr$(140) then 550
  15. 230 if k$<>chr$(13) then 210
  16. 300 gosub 1700
  17. 310 get k$: if k$="" then 310
  18. 320 if k$=chr$(140) then 550
  19. 330 if k$<>chr$(13) then 310
  20. 400 gosub 1800
  21. 410 ml=23:gosub 5000
  22. 420 n$=t$:if t$="" then n$="an anonymous source"
  23. 430 gosub 1900
  24. 440 get k$: if k$="" then 440
  25. 450 if k$=chr$(140) then 550
  26. 460 if k$<>chr$(13) then 440
  27. 500 er=0: gosub 2000
  28. 505 if er=1 then goto 600
  29. 510 gosub 3000
  30. 520 get k$: if k$="" then 520
  31. 530 if k$=chr$(140) then 550
  32. 540 if k$<>chr$(13) then 520
  33. 550 poke de,8: sys uptime
  34. 600 gosub 1400
  35. 610 printspc(6)" [150] [212]here is a printer error  [155]"
  36. 620 printspc(6)"[210]echeck all of your printer"
  37. 630 printspc(5)"connections and the printer's"
  38. 640 printspc(6)"paper supply and try again."
  39. 650 get k$: if k$="" then 650
  40. 660 if k$=chr$(140) then 550
  41. 670 if k$<>chr$(13) then 650
  42. 680 gosub 1400
  43. 690 printspc(16)"[208]rinting"
  44. 700 printspc(12)"[210]eader's  [211]urvey"
  45. 710 goto 500
  46. 990 end
  47. 1000 print"[147]";
  48. 1010 tl$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  49. 1020 bl$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][155]"
  50. 1030 m1$="[221]": m2$="                                     [146][221]"
  51. 1040 m3$="[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  52. 1050 c$="[158]": r$="": printtl$
  53. 1060 for x=1to23
  54. 1070 printm1$;c$;r$;m2$
  55. 1080 if x=5 then x=6: c$="": r$="[146]": printm3$
  56. 1090 if x=18 then x=19:c$="":r$="":printm3$
  57. 1100 next
  58. 1200 printbl$
  59. 1210 printspc(10)" [213]p[212]ime [158] [205]agazine's"
  60. 1220 printspc(12)"[210]eader's [211]urvey"
  61. 1230 for x=1to16: print: next
  62. 1240 printspc(7)"[208]ress [[210][197][212][213][210][206]] to [195]ontinue"
  63. 1250 printspc(4)"[208]ress [198]8 to [197]xit [194]ack to [213]p[212]ime[155]"
  64. 1290 return
  65. 1400 print"";
  66. 1410 for x=1to12
  67. 1420 print"[221]                                     [221]"
  68. 1430 next
  69. 1440 print"[155]";
  70. 1450 return
  71. 1500 gosub 1400
  72. 1510 printspc(8)"[213]p[212]ime the [196]isk [205]onthly[155]"
  73. 1520 printspc(2)"is the [159]premiere[155] magazine on a disk"
  74. 1530 printspc(7)"for the [195]ommodore 64/128"
  75. 1540 printspc(5)"[215]e are constantly working to"
  76. 1550 printspc(8)"improve our publication"
  77. 1560 printspc(11)"and [217][207][213][155][160]can help!"
  78. 1590 return
  79. 1600 gosub 1400
  80. 1610 printspc(6)"[217]ou can help us stay #1[155] by"
  81. 1620 printspc(9)"providing your input:
  82. 1630 [153][166]6)"sys(NULL)raiselist, printlenriticismlist, openlenommentslist"
  83. 1640 [153][166]4)"atnnything that you feel will help"
  84. 1650 [153][166]7)"us meet your expectations"
  85. 1660 [153][166]14)"with (NULL)p(NULL)imelist"
  86. 1690 [142]
  87. 1700 [141] 1400
  88. 1710 [153][166]3)"peeky following the next few prompts"
  89. 1720 [153][166]5)"your printer will print out a"
  90. 1730 [153][166]5)"reader's survey form for you."
  91. 1740 [153][166]4)"(NULL)lease take the time to fill out"
  92. 1750 [153][166]3)"the survey and return it using the"
  93. 1760 [153][166]4)"enclosed business reply envelope."
  94. 1770 [153][166]4)"(NULL)e will use the results of this"
  95. 1780 [153][166]5)"survey to determine what it is"
  96. 1790 [153][166]3)"you've come to expect from (NULL)p(NULL)imelist": [142]
  97. 1800 [141] 1400
  98. 1810 [153][166]3)"right$f you'd like to include your name"
  99. 1820 [153][166]10)"enter it now, please."
  100. 1830 [153][166]2)"(atn [(NULL)val(NULL)(NULL)(NULL)(NULL)] will make it anonymous)"
  101. 1840 [153][166]4)"(NULL)ame:tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  102. 1850 [153][166]8)"onon*cmd";
  103. 1860 [142]
  104. 1900 [141] 5200
  105. 1905 [153][166]11)"(NULL)eady your printer"
  106. 1910 [153][166]7)"(NULL)ress sys[(NULL)val(NULL)(NULL)(NULL)(NULL)]list when ready"
  107. 1920 [142]
  108. 2000 [159] 4,4:[160]4:s[178]st
  109. 2010 [139] a[179][177]0 [167] er[178]1: [137] 2490
  110. 2015 [159] 4,4,7
  111. 2020 [152]4,[199](10)[199](10)
  112. 2025 [152]4,""[166]11)"(NULL)eader's (NULL)urvey for the lenommodore 64/128    ";
  113. 2027 [152]4,"(NULL)ol. 1 (NULL)o. 11"
  114. 2030 [152]4,[199](10)
  115. 2040 [152]4,"     (NULL)his survey is from ";n$;"."
  116. 2050 [152]4,[199](10)[199](0)
  117. 2100 l$[178]"totototototototototototototototo"
  118. 2105 [139] dw[178]1 [167] l$[178]"................"
  119. 2165 [152]4,"     ***********************************";
  120. 2167 [152]4,"***********************************"
  121. 2170 bx$[178]"[   ]   tototototototototototototototototototototototototototototototototototototo"
  122. 2172 [139] dw[178]1 [167] bx$[178]"[   ]   ....................................."
  123. 2175 [152]4,[199](10)[199](0)
  124. 2180 [152]4,"     (NULL)lease rate the following programs and categories on a"
  125. 2190 [152]4,"     scale between 1 and 10 with 10 being the highest."
  126. 2195 [152]4,[199](10)[199](0)
  127. 2200 [152]4,"     (NULL)lanet (NULL)aiders   ";bx$
  128. 2205 [152]4,[199](0)
  129. 2206 [152]4,"     (NULL)(NULL)(NULL)peek(NULL) lenatn(NULL)len/64    ";bx$
  130. 2207 [152]4,[199](0)
  131. 2210 [152]4,"     (NULL)ibrary 128      ";bx$
  132. 2212 [152]4,[199](0)
  133. 2214 [152]4,"     left$ome peekudget 64   ";bx$
  134. 2215 [152]4,[199](0)
  135. 2220 [152]4,"     peekatn(NULL)right$len-64         ";bx$
  136. 2225 [152]4,[199](0)
  137. 2230 [152]4,"     asc(NULL)(NULL)(NULL)left$ lenompiler   ";bx$
  138. 2235 [152]4,[199](0)
  139. 2240 [152]4,"     str$isk atnuto(NULL)tat    ";bx$
  140. 2247 [152]4,[199](0)
  141. 2250 [152]4,"     (NULL)esar on (NULL)rack   ";bx$
  142. 2255 [152]4,[199](0)
  143. 2260 [152]4,"     (NULL)rogramming w/(NULL)(NULL) ";bx$
  144. 2265 [152]4,[199](0)
  145. 2266 [152]4,"     (NULL)andom atnccess    ";bx$
  146. 2267 [152]4,[199](0)
  147. 2270 [152]4,"     (NULL)earning asc(NULL)(NULL)(NULL)left$   ";bx$
  148. 2275 [152]4,[199](0)
  149. 2276 [152]4,"     (NULL)oftware (NULL)eviews ";bx$:[152]4,[199](0)
  150. 2280 [152]4,"     right$'d rate the issue overall  [   ]
  151. 2285 print#4,chr$(0)
  152. 2287 print#4,chr$(0)
  153. 2300 print#4,"     [193]ny other comments or observations you'd care to make:"
  154. 2305 print#4,chr$(0)
  155. 2310 print#4,"     ";l$;l$;l$;l$
  156. 2315 print#4,chr$(0)
  157. 2320 print#4,"     ";l$;l$;l$;l$
  158. 2325 print#4,chr$(0)
  159. 2326 print#4,"     ";l$;l$;l$;l$
  160. 2327 print#4,chr$(0)
  161. 2328 print#4,"     ";l$;l$;l$;l$
  162. 2330 print#4,chr$(12)
  163. 2490 close4: return
  164. 3000 gosub 1400
  165. 3010 printspc(5)"[212]hank-you for taking the time"
  166. 3020 printspc(8)"to print out the survey."
  167. 3030 printspc(3)"[215]e'll be waiting to hear from you."
  168. 3040 printspc(2)"[208]lease send the completed survey to"
  169. 3050 printspc(8)"[213]p[212]ime, the [196]isk [205]onthly[155]"
  170. 3060 printspc(8)"[208][207] [194]ox 299"
  171. 3070 printspc(8)"[206]ewport, [210][201] 02840"
  172. 3080 return
  173. 5000 t$="": cs$="*[157]": ct=0
  174. 5010 get k$: if k$="" then 5010
  175. 5020 k=asc(k$)
  176. 5025 if k=140 then 550
  177. 5030 if k=13 then 5100
  178. 5040 if k<>20 then 5070
  179. 5050 if ct=0 then 5010
  180. 5060 ct=ct-1: print" [157][157] [157]";cs$;: t$=left$(t$,ct): goto 5010
  181. 5070 if ct=ml then 5010
  182. 5080 if (k=32) or (k=46) then 5085
  183. 5082 if (k$>="a") and (k$<="z") then 5085
  184. 5084 if (k$<"[193]") or (k$>"[218]") then 5010
  185. 5085 t$=t$+k$: ct=ct+1: printk$;: if ct<>24 then printcs$;
  186. 5090 goto 5010
  187. 5100 if t$="" then print"[193]nonymous";
  188. 5110 print" ": return
  189. 5200 printspc(9)"[155][195]an your printer print"
  190. 5210 printspc(5)"[195]ommodore [199]raphic characters?"
  191. 5220 printspc(15)"[158]< [217] / [206] >[155]": print"[145][145][145]";
  192. 5230 dw=0
  193. 5240 get k$: if k$ = "" then 5240
  194. 5250 if (k$="y") or (k$="[217]") then 5280
  195. 5255 if k$=chr$(140) then 550
  196. 5260 if (k$<>"n") and (k$<>"[206]") then 5240
  197. 5270 dw=1
  198. 5280 for x=1to3: print"                                   ": next
  199. 5285 print"[145][145][145][145]";
  200. 5290 return
  201.